home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / ffccflow / ffccflow.lha / ffccc+flow / flow / rdflop.for < prev    next >
Text File  |  1992-07-31  |  797b  |  26 lines
  1.       SUBROUTINE RDFLOP(IPASS)
  2. C! Read the data from FLOPPY
  3.       INCLUDE 'params.h'
  4.       INCLUDE 'lunits.h'
  5.       INCLUDE 'floppy.h'
  6.       INCLUDE 'jobcom.h'
  7. C
  8.     1 CONTINUE
  9.       READ(LINTRE,END=2,ERR=999) NENT,(CALLER(I),I=1,NENT),
  10.      $ (CRABUF(I),I=1,NENT),(TYPE(I),I=1,NENT),
  11.      $ KALL,(CALLED(I),I=1,KALL),(CDABUF(I),I=1,KALL),
  12.      $ NCOM,(CNAMES(I),I=1,NCOM),
  13.      $ (UNUSED(I),I=1,NCOM),
  14.      $ CMMNT,
  15.      $ NARGS,(CARGNM(I),I=1,NARGS),(CARGTY(I),I=1,NARGS),
  16.      $ (NARGDI(I),I=1,NARGS),
  17.      $ (((CARGDI(III,II,I),II=1,2),III=1,NARGDI(I)),I=1,NARGS),
  18.      $ NKALL,(CKALLN(I),I=1,NKALL),(KALLIF(I),I=1,NKALL),
  19.      $ (KALLDO(I),I=1,NKALL)
  20.       CALL TABENT(IPASS)
  21.       GOTO 1
  22.     2 RETURN
  23.   999 WRITE(LOUT,'(A)') ' RDFLOP: ERROR READING INPUT BINARY FILE'
  24.       STOP 1
  25.       END
  26.